home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / UTIL / Alpha 6.5.sit / Tcl / SystemCode / flags.tcl < prev    next >
Text File  |  1996-08-15  |  4KB  |  160 lines
  1.  
  2. set tileWidth [expr $screenWidth - 10]
  3. if {$tileWidth > 510} {set defWidth 510} else {set defWidth $tileWidth }
  4. set tileHeight [expr $screenHeight - 60]
  5. set defHeight $tileHeight
  6.  
  7. set mar 22
  8. set errorHeight [expr (($tileHeight - $mar) / 3)]
  9. set errorDisp [expr (2 * ($tileHeight - $mar)) / 3]
  10. unset mar
  11.  
  12. set tclvars {}
  13.  
  14. set allFlags {}
  15. set allVars {}
  16. set invisibleModeVars(wordWrap) 1
  17.  
  18. # The following three procs, together w/ the initialization 
  19. # for the flags below, allow a totally Tcl-controlled menu to 
  20. # shadow Alpha's internal variables.
  21. proc initFlag {var {val ""}} {
  22.     global $var modeVars tclvars allFlags
  23.     if {[lsearch -exact $tclvars $var] < 0} {
  24.         lappend tclvars $var
  25.     }
  26.     linkVar $var
  27.     if {[string length $val]} {set $var $val}
  28.     lappend allFlags $var
  29. }
  30.  
  31. # Called for ordinary tcl global vars we want included in the Flags menu.
  32. proc initTclFlag {flag {val 0} {pname ""}} {
  33.     global $flag allFlags tclvars modeVars tcl_var_procs
  34.     if {[lsearch -exact $tclvars $flag] < 0} {
  35.         lappend tclvars $flag
  36.     }
  37.     if {![info exists $flag]} {set $flag $val}
  38.     lappend allFlags $flag
  39.  
  40.     if {[string length $pname]} {
  41.         set tcl_var_procs($flag) $pname
  42.     }
  43. }
  44.  
  45. # Called for ordinary tcl global vars we want included in the Vars menu.
  46. proc initTclVar {var {val ""} {pname ""}} {
  47.     global $var tclvars modeVars allVars tcl_var_procs
  48.     if {[lsearch -exact $tclvars $var] < 0} {
  49.         lappend tclvars $var
  50.     }
  51.     if {[string length $val]} {
  52.         set $var $val
  53.     }
  54.     if {![info exists $var]} {set $var 0}
  55.     lappend allVars $var
  56.  
  57.     if {[string length $pname]} {
  58.         set tcl_var_procs($var) $pname
  59.     }
  60. }
  61.  
  62. proc initVar {var {val ""}} {
  63.     global $var tclvars modeVars allVars
  64.     if {[lsearch -exact $tclvars $var] < 0} {
  65.         lappend tclvars $var
  66.     }
  67.     linkVar $var
  68.     if {[string length $val]} {
  69.         set $var $val
  70.     }
  71.     lappend allVars $var
  72. }
  73.  
  74. # This file contains methods allowing the shadowing of tcl variables 
  75.  
  76. initFlag autoHScroll
  77. initFlag autoSave
  78. initTclFlag backup
  79. initFlag blinkingCursor
  80. initFlag blockCursor
  81. initFlag coloring
  82. initFlag dragAndDrop
  83. initTclFlag forceMainScreen 1
  84. initFlag horScrollBar 0
  85. initFlag hyperText 1
  86. initTclFlag iconifyOnSwitch
  87. initFlag indentOnCR
  88. initTclFlag infoWindowsDirty 0
  89. initTclFlag intelCutPaste 1
  90. catch {initFlag lockStatus 1}
  91. initFlag moveInsertion
  92. initFlag openAllFiles
  93. initFlag powerThumb
  94. initFlag projectorAware
  95. initFlag showInvisibles
  96. initFlag smallMenuFont
  97. initTclFlag sortFuncsMenu 1
  98. initFlag sortedIsDefault
  99. initFlag tempMem
  100. initFlag undoOn
  101. initFlag wordWrap
  102.  
  103. proc wordWrapProc {val} { 
  104.     global mode wordWrap modifiedModeVars 
  105.     global ${mode}modeVars
  106.     set wordWrap $val
  107.     set ${mode}modeVars(wordWrap) $val
  108.     lappend modifiedModeVars [list wordWrap ${mode}modeVars]
  109. }
  110.  
  111.  
  112. initTclVar backExtension "~"
  113. initTclVar backDir
  114. set backDir ""
  115. initVar bottomMargin
  116. initVar changesLim
  117. initVar defaultFont
  118. initVar defHeight
  119. initVar defLeft     2
  120. initVar defTop         40
  121. initVar defWidth
  122. initTclVar diffFlags { }
  123. initTclFlag doubleSpaces 1
  124. initVar fillColumn
  125. initVar fontSize
  126. initVar funcExpr
  127. initVar funcPar
  128. initTclVar horMargin 4
  129. initVar leftFillColumn
  130. initVar leftMargin
  131. initTclVar numWinsToTile 2
  132. initVar paraColumn
  133. initVar    printerFont
  134. initVar    printerFontSize
  135. initTclFlag printHeader 1
  136. initTclFlag printHeaderTime 1
  137. initTclFlag printHeaderFullPath 0
  138. initVar savedState
  139. initVar sortColumn
  140. initVar tabSize
  141. initVar tagFile
  142. initTclVar tileHeight
  143. initTclVar tileLeft 2
  144. initTclVar tileMargin 22
  145. initTclVar tileProportion .60
  146. initTclVar tileTop
  147. initTclVar tileWidth
  148. initVar topMargin
  149. initVar wordBreak
  150. initVar wordBreakPreface
  151. initVar    wrapBreak
  152. initVar    wrapBreakPreface
  153. initVar    wrapHigh
  154. initVar    wrapLow
  155.  
  156.  
  157. # Flags that won't appear in the menu.
  158. linkVar numLock
  159.  
  160.